The Atari Compendium/The Atari Compendium (Toad Computers) (1994).iso/files/prgtools/mint/mgr/sparcmgr/src.zoo/src/destroy.c

C/C++ Source or Header | 1989-03-17 | 5.0 KB | 225 lines

/*                        Copyright (c) 1987 Bellcore
 *                            All Rights Reserved
 *       Permission is granted to copy or use this program, EXCEPT that it
 *       may not be sold for profit, the copyright notice must be reproduced
 *       on copies, and credit should be given to Bellcore where it is due.
 *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
 */
/*    $Header: destroy.c,v 1.1 89/03/17 08:21:03 sau Exp $
    $Source: /m1/mgr.new/src/RCS/destroy.c,v $
*/
static char    RCSid_[] = "$Source: /m1/mgr.new/src/RCS/destroy.c,v $$Revision: 1.1 $";

/* destroy a window (needs fixing) */

#include "bitmap.h"
#include <stdio.h>     /* temporary */
#include <sys/wait.h>
#include <sys/signal.h>
#include "defs.h"
#include "font.h"
#include "event.h"

#define ALL    1

/* mark active window for destruction */

int destroy_window()
   {
   ACTIVE(flags) |= W_DIED;
   }

/* destroy a window */

int destroy(win)
register WINDOW *win;
   {
   int i;
   union wait status;

   if (win == (WINDOW *) 0)
      return(-1);

   MOUSE_OFF(mousex,mousey);
   cursor_off();

   if (win != active) {
      ACTIVE_OFF();
      expose(win);
      }

   active = W(next);

   /* deallocate window slot */

   if (active)
      ACTIVE(prev) = W(prev);

   /* remove window from screen */

   erase_win(W(border));

   if (W(main)==win) {        /* kill process associated with the window */
#ifdef DEBUG
      dprintf(d)(stderr,"%s: destroy main %s\r\n",W(tty),W(alt)?"ALT":"");
#endif
      killpg(W(pid),SIGHUP);

      if (geteuid() < 1) {
         chmod(W(tty),0666);
         chown(W(tty),0,0);
         }

      close(W(to_fd));
      mask &= ~(1<<W(to_fd));
      poll &= ~(1<<W(to_fd));
#ifdef WHO
      rm_utmp(W(tty));
#endif

      /* tell alternate windows main died */

      set_dead(win);

      /* wait for shell to die */

#ifdef DEBUG
      dprintf(d)(stderr,"waiting for ..."); fflush(stderr);
#endif
      if (W(pid) > 1) {
         i = wait3(&status,WNOHANG,0L);
         if (i == 0) {                     /* start it so it can die */
            kill(W(pid),SIGCONT);
            wait(&status);
            }
         }
#ifdef DEBUG
      dprintf(d)(stderr," %d\r\n",i);
#endif
      next_window--;
      }

   else if (W(main) && !(W(main)->flags&W_DIED)) {    /* main still alive */
#ifdef DEBUG
      dprintf(d)(stderr,"%s: destroy alt %d\r\n",W(tty),W(num));
#endif
      do_event(EVENT_DESTROY,win,E_MAIN);
      if (W(from_fd)) {        /* re-attach output to main window */
         W(main)->from_fd = W(main)->to_fd;
         W(main)->max = W(max) - W(current); /* ??? */
#ifdef DEBUG
      dprintf(d)(stderr,"%s: copy %d chars at %d\r\n",
               W(main)->max, W(current));
#endif
         bcopy(W(buff)+W(current)+1,W(main)->buff,W(main)->max);
         W(main)->current = 0;
#ifdef DEBUG
         dprintf(d)(stderr,"%s: reattaching main %d chars\r\n",W(tty),W(max));
#endif
         }
      detach(win);
      }
   else if (W(main)) {        /* tell main alts know they are dead */
      W(main)->alt = (WINDOW *) 0;
#ifdef DEBUG
      dprintf(d)(stderr,"%s: destroy alt, (tell main)\r\n",W(tty));
#endif
      }
   else {
#ifdef DEBUG
      dprintf(d)(stderr,"%s: destroy alt, (dead main)\r\n",W(tty));
#endif
      }

   /* fix up display if any windows left */

   if (active) {
      repair(win);
      un_covered();
      clip_bad(win);    /* invalidate clip lists */
      ACTIVE_ON();
      cursor_on();
      }

   /* free space associated with dead window */

   unlink_win(win,ALL);

#ifdef DEBUG
   dprintf(d)(stderr,"Active: %s-%d\r\n",
          active?ACTIVE(tty):"NONE", active?ACTIVE(num):0);
#endif

   MOUSE_ON(mousex,mousey);

   return(0);
   }

/* free all space associated with a window */

unlink_win(win,how)
register WINDOW *win;        /* window to unlink */
int how;            /* if how, unlink window stack as well */
   {
   register int i;

#ifdef DEBUG
   dprintf(u)(stderr,"Unlinking %s %s\n",W(tty),how?"ALL":"");
#endif

   if (how && W(stack))
      unlink_win(W(stack),how);
   if (W(window))
       bit_destroy(W(window));
   for(i=0; i< MAXBITMAPS;i++)
      if (W(bitmaps)[i])
          bit_destroy(W(bitmaps)[i]);
   if (W(border))
       bit_destroy(W(border));
   if (W(save))
       bit_destroy(W(save));
   if (W(snarf))
      free(W(snarf));
   if (W(bitmap))
      free(W(bitmap));
   zap_cliplist(win);

   for(i=0; i< MAXEVENTS;i++)
       if (W(events)[i])
          free(W(events)[i]);

   for(i=0; i< MAXMENU;i++)
      if (W(menus)[i])
         menu_destroy(W(menus)[i]);

   free(win);
   }

/* unlink an alternate window from list */

int
detach(win2)
WINDOW *win2;
   {
   register WINDOW *win = win2;

   if (!(W(main)))
      return;
   for(win=win2->main;W(alt)!=win2;win=W(alt))
      ;
   W(alt)= win2->alt;
   }

/* notify alternate windows of impending death */

set_dead(win)
register WINDOW *win;
   {
   for(win = W(alt); win != (WINDOW *) 0; win = W(alt)) {
#ifdef DEBUG
      dprintf(d)(stderr,"%s: telling %d\r\n",W(tty),W(num));
#endif
      W(main) = (WINDOW *) 0;
      }
   }